home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / addrpgr < prev    next >
Text File  |  2007-02-28  |  1KB  |  66 lines
  1. 0010 DIM NAME$ OF 30
  2. 0020 DIM ADDR$(2) OF 30
  3. 0030 DIM ANSW$ OF 10
  4. 0040 //
  5. 0050 PRINT CHR$(147) //CLEAR
  6. 0060 SCREEN(8,0)
  7. 0070 PRINT "1=ENTER ADDRESSES"
  8. 0080 PRINT "2=PRINT ADDRESSES"
  9. 0090 PRINT "3=STOP"
  10. 0100 PRINT 
  11. 0110 INPUT "> ": JOB
  12. 0120 IF JOB=1 THEN ENTERADDR
  13. 0130 IF JOB=2 THEN PRINTADDR
  14. 0140 END 
  15. 0150 //
  16. 0160 PROC ENTERADDR 
  17. 0170 MORE:=TRUE
  18. 0180 OPEN FILE 3,"@0:ADDRESSES",WRITE
  19. 0190 WHILE MORE DO TAKEIN
  20. 0200 CLOSE
  21. 0210 ENDPROC ENTERADDR
  22. 0220 //
  23. 0230 PROC TAKEIN 
  24. 0240 PRINT CHR$(147) //CLEAR
  25. 0250 SCREEN(8,0)
  26. 0260 PRINT "NAME     :"
  27. 0270 PRINT "           -------------------------"
  28. 0280 PRINT "ADDRESS  :"
  29. 0290 PRINT "           -------------------------"
  30. 0300 PRINT "         :"
  31. 0310 PRINT "           -------------------------"
  32. 0320 SCREEN(8,11)
  33. 0330 INPUT "": NAME$
  34. 0340 MORE:=(NAME$<>"")
  35. 0350 IF MORE THEN
  36. 0360 FOR J:=1 TO 2 DO
  37. 0370 SCREEN(8+2*J,11)
  38. 0380 INPUT "": ADDR$(J)
  39. 0390 ENDFOR J
  40. 0400 WRITE FILE 3: NAME$,ADDR$(1),ADDR$(2)
  41. 0410 ENDIF 
  42. 0420 ENDPROC TAKEIN
  43. 0430 //
  44. 0440 PROC PRINTADDR 
  45. 0450 OPEN FILE 2,"ADDRESSES",READ
  46. 0460 REPEAT 
  47. 0470 READ FILE 2: NAME$,ADDR$(1),ADDR$(2)
  48. 0480 PRINT CHR$(147)
  49. 0490 SCREEN(8,0)
  50. 0500 PRINT NAME$
  51. 0510 PRINT ADDR$(1)
  52. 0520 PRINT ADDR$(2)
  53. 0530 SCREEN(15,0)
  54. 0540 INPUT "PRESS RETURN ": ANSW$
  55. 0550 UNTIL EOF(2)
  56. 0560 CLOSE
  57. 0570 PRINT CHR$(147) //CLEAR
  58. 0580 ENDPROC PRINTADDR
  59. 0590 //
  60. 0600 PROC SCREEN(L,C) 
  61. 0610 PRINT CHR$(19), //HOME
  62. 0620 FOR I:=1 TO L DO PRINT CHR$(17),
  63. 0630 FOR I:=1 TO C DO PRINT CHR$(29),
  64. 0640 ENDPROC SCREEN
  65. 0650 //
  66.